/ Mac Power 1997 January / macpower199701.bin / AMUG / Utilities_48 / TouchMe 1.1.1.sit / touchMe 1.11 Folder / scripts / sample 5

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 73 61 6d 70 6c 65 | 20 35 00 00 00 00 00 00 |..sample| 5......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 54 6f 79 | 53 01 00 00 00 00 00 00 |.TEXTToy|S.......|
|00000050| 00 00 00 00 00 07 00 00 | 00 01 4a ae 2f 89 20 ae |........|..J./. .|
|00000060| 2f 89 20 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |/. .....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 3d ef 00 00 |........|....=...|
|00000080| 2d 2d 20 53 61 6d 70 6c | 65 20 41 70 70 6c 65 53 |-- Sampl|e AppleS|
|00000090| 63 72 69 70 74 73 20 66 | 6f 72 20 74 6f 75 63 68 |cripts f|or touch|
|000000a0| 4d 65 2c 20 31 39 39 36 | 20 28 43 29 20 4d 69 7a |Me, 1996| (C) Miz|
|000000b0| 75 74 6f 72 69 20 54 65 | 74 73 75 79 61 0d 2d 2d |utori Te|tsuya.--|
|000000c0| 20 41 20 64 72 6f 70 6c | 65 74 20 74 6f 20 63 68 | A dropl|et to ch|
|000000d0| 61 6e 67 65 20 74 68 65 | 20 64 61 74 65 20 74 69 |ange the| date ti|
|000000e0| 6d 65 20 73 74 61 6d 70 | 20 6f 66 20 65 76 65 72 |me stamp| of ever|
|000000f0| 79 20 66 69 6c 65 20 7b | 69 6e 20 74 68 65 20 67 |y file {|in the g|
|00000100| 69 76 65 6e 20 66 6f 6c | 64 65 72 28 73 29 7d 0d |iven fol|der(s)}.|
|00000110| 2d 2d 20 74 68 61 74 20 | 63 6f 70 69 65 73 20 69 |-- that |copies i|
|00000120| 74 73 20 6d 6f 64 69 66 | 69 63 61 74 69 6f 6e 20 |ts modif|ication |
|00000130| 64 61 74 65 20 74 6f 20 | 74 68 65 20 63 72 65 61 |date to |the crea|
|00000140| 74 69 6f 6e 20 64 61 74 | 65 20 62 79 20 66 69 6c |tion dat|e by fil|
|00000150| 65 2d 62 79 2d 66 69 6c | 65 2e 0d 2d 2d 20 48 6f |e-by-fil|e..-- Ho|
|00000160| 77 20 74 6f 20 63 6f 6d | 70 69 6c 65 20 74 68 69 |w to com|pile thi|
|00000170| 73 20 41 70 70 6c 65 53 | 63 72 69 70 74 3a 20 65 |s AppleS|cript: e|
|00000180| 78 65 63 75 74 65 20 22 | 53 61 76 65 20 41 73 20 |xecute "|Save As |
|00000190| 52 75 6e 2d 4f 6e 6c 79 | 2e 2e 2e 22 20 63 6f 6d |Run-Only|..." com|
|000001a0| 6d 61 6e 64 21 0d 2d 2d | 20 55 73 61 67 65 31 3a |mand!.--| Usage1:|
|000001b0| 20 52 75 6e 20 74 68 69 | 73 20 64 72 6f 70 6c 65 | Run thi|s drople|
|000001c0| 74 20 74 6f 20 73 65 6c | 65 63 74 20 61 20 74 61 |t to sel|ect a ta|
|000001d0| 72 67 65 74 20 66 6f 6c | 64 65 72 20 69 6e 20 74 |rget fol|der in t|
|000001e0| 68 65 20 70 72 6f 6d 70 | 74 20 64 69 61 6c 6f 67 |he promp|t dialog|
|000001f0| 2e 0d 2d 2d 20 55 73 61 | 67 65 32 3a 20 44 72 61 |..-- Usa|ge2: Dra|
|00000200| 67 20 26 20 64 72 6f 70 | 20 74 68 65 20 74 61 72 |g & drop| the tar|
|00000210| 67 65 74 20 66 6f 6c 64 | 65 72 73 20 28 6f 72 20 |get fold|ers (or |
|00000220| 66 69 6c 65 73 29 20 6f | 6e 74 6f 20 74 68 69 73 |files) o|nto this|
|00000230| 20 64 72 6f 70 6c 65 74 | 20 69 63 6f 6e 2e 0d 0d | droplet| icon...|
|00000240| 2d 2d 20 54 68 61 6e 6b | 73 20 74 6f 20 4a 69 6d |-- Thank|s to Jim|
|00000250| 20 76 61 6e 20 5a 65 65 | 20 66 6f 72 20 65 6e 63 | van Zee| for enc|
|00000260| 6f 75 72 61 67 69 6e 67 | 20 6d 65 20 74 6f 20 77 |ouraging| me to w|
|00000270| 72 69 74 65 20 74 68 69 | 73 20 77 6f 6e 64 65 72 |rite thi|s wonder|
|00000280| 66 75 6c 20 73 63 72 69 | 70 74 2e 0d 2d 2d 20 48 |ful scri|pt..-- H|
|00000290| 65 20 68 61 64 20 73 6f | 6d 65 20 70 72 6f 62 6c |e had so|me probl|
|000002a0| 65 6d 73 20 6f 6e 20 75 | 73 69 6e 67 20 74 68 65 |ems on u|sing the|
|000002b0| 20 4d 61 63 69 6e 74 6f | 73 68 20 22 74 61 72 22 | Macinto|sh "tar"|
|000002c0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 74 6f 20 | applica|tion to |
|000002d0| 65 78 74 72 61 63 74 0d | 2d 2d 20 61 20 74 61 72 |extract.|-- a tar|
|000002e0| 20 66 69 6c 65 20 77 68 | 69 63 68 20 77 61 73 20 | file wh|ich was |
|000002f0| 63 72 65 61 74 65 64 20 | 6f 6e 20 55 6e 69 78 20 |created |on Unix |
|00000300| 6d 61 63 68 69 6e 65 2e | 20 48 65 20 66 6f 75 6e |machine.| He foun|
|00000310| 64 20 74 68 61 74 20 74 | 68 65 20 65 78 74 72 61 |d that t|he extra|
|00000320| 63 74 65 64 0d 2d 2d 20 | 66 69 6c 65 73 20 68 61 |cted.-- |files ha|
|00000330| 76 65 20 74 68 65 69 72 | 20 6f 72 69 67 69 6e 61 |ve their| origina|
|00000340| 6c 20 74 69 6d 65 20 73 | 74 61 6d 70 20 61 73 20 |l time s|tamp as |
|00000350| 74 68 65 20 6d 6f 64 69 | 66 69 63 61 74 69 6f 6e |the modi|fication|
|00000360| 20 64 61 74 65 2c 20 77 | 68 65 72 65 61 73 20 74 | date, w|hereas t|
|00000370| 68 65 20 0d 2d 2d 20 63 | 75 72 72 65 6e 74 20 74 |he .-- c|urrent t|
|00000380| 69 6d 65 20 61 73 20 69 | 74 73 20 63 72 65 61 74 |ime as i|ts creat|
|00000390| 69 6f 6e 20 64 61 74 65 | 2e 20 57 6f 77 2c 20 74 |ion date|. Wow, t|
|000003a0| 68 65 20 66 69 6c 65 20 | 77 61 73 20 63 72 65 61 |he file |was crea|
|000003b0| 74 65 64 20 69 6e 20 74 | 68 65 20 66 75 74 75 72 |ted in t|he futur|
|000003c0| 65 21 0d 2d 2d 20 54 68 | 69 73 20 73 61 6d 70 6c |e!.-- Th|is sampl|
|000003d0| 65 20 73 63 72 69 70 74 | 20 63 61 6e 20 63 6f 72 |e script| can cor|
|000003e0| 72 65 63 74 20 74 68 65 | 20 63 72 65 61 74 69 6f |rect the| creatio|
|000003f0| 6e 20 64 61 74 65 20 62 | 79 20 74 68 65 20 6d 6f |n date b|y the mo|
|00000400| 64 69 66 69 63 61 74 69 | 6f 6e 20 64 61 74 65 2e |dificati|on date.|
|00000410| 0d 0d 0d 74 65 6c 6c 20 | 6d 65 20 74 6f 20 6f 70 |...tell |me to op|
|00000420| 65 6e 20 7b 28 63 68 6f | 6f 73 65 20 66 6f 6c 64 |en {(cho|ose fold|
|00000430| 65 72 29 7d 0d 2d 2d 74 | 65 6c 6c 20 6d 65 20 74 |er)}.--t|ell me t|
|00000440| 6f 20 6f 70 65 6e 20 7b | 28 63 68 6f 6f 73 65 20 |o open {|(choose |
|00000450| 66 69 6c 65 29 7d 0d 0d | 6f 6e 20 6f 70 65 6e 20 |file)}..|on open |
|00000460| 28 64 6f 63 4c 69 73 74 | 29 0d 09 74 65 6c 6c 20 |(docList|)..tell |
|00000470| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 22 74 6f 75 |applicat|ion "tou|
|00000480| 63 68 4d 65 22 0d 09 09 | 61 63 74 69 76 61 74 65 |chMe"...|activate|
|00000490| 0d 09 09 73 65 74 20 70 | 72 65 66 73 20 63 72 65 |...set p|refs cre|
|000004a0| 61 74 69 6f 6e 20 74 6f | 20 7b 65 6e 61 62 6c 65 |ation to| {enable|
|000004b0| 64 3a 74 72 75 65 2c 20 | 66 6c 61 67 3a 65 78 61 |d:true, |flag:exa|
|000004c0| 63 74 7d 0d 09 09 73 65 | 74 20 70 72 65 66 73 20 |ct}...se|t prefs |
|000004d0| 6d 6f 64 69 66 69 63 61 | 74 69 6f 6e 20 74 6f 20 |modifica|tion to |
|000004e0| 7b 65 6e 61 62 6c 65 64 | 3a 66 61 6c 73 65 7d 0d |{enabled|:false}.|
|000004f0| 09 65 6e 64 20 74 65 6c | 6c 0d 09 2d 2d 0d 09 72 |.end tel|l..--..r|
|00000500| 65 70 65 61 74 20 77 69 | 74 68 20 74 68 65 49 74 |epeat wi|th theIt|
|00000510| 65 6d 20 69 6e 20 74 68 | 65 20 64 6f 63 4c 69 73 |em in th|e docLis|
|00000520| 74 0d 09 09 69 66 20 74 | 68 65 20 66 6f 6c 64 65 |t...if t|he folde|
|00000530| 72 20 6f 66 20 28 69 6e | 66 6f 20 66 6f 72 20 74 |r of (in|fo for t|
|00000540| 68 65 49 74 65 6d 29 20 | 69 73 20 74 72 75 65 20 |heItem) |is true |
|00000550| 74 68 65 6e 0d 09 09 09 | 72 65 70 65 61 74 20 77 |then....|repeat w|
|00000560| 69 74 68 20 74 68 65 46 | 69 6c 65 6e 61 6d 65 20 |ith theF|ilename |
|00000570| 69 6e 20 74 68 65 20 6c | 69 73 74 20 66 6f 6c 64 |in the l|ist fold|
|00000580| 65 72 20 74 68 65 49 74 | 65 6d 0d 09 09 09 09 74 |er theIt|em.....t|
|00000590| 65 6c 6c 20 6d 65 20 74 | 6f 20 53 65 74 44 61 74 |ell me t|o SetDat|
|000005a0| 65 54 69 6d 65 53 74 61 | 6d 70 20 62 79 20 28 61 |eTimeSta|mp by (a|
|000005b0| 6c 69 61 73 20 28 28 74 | 68 65 49 74 65 6d 20 61 |lias ((t|heItem a|
|000005c0| 73 20 73 74 72 69 6e 67 | 29 20 26 20 74 68 65 46 |s string|) & theF|
|000005d0| 69 6c 65 6e 61 6d 65 29 | 29 0d 09 09 09 65 6e 64 |ilename)|)....end|
|000005e0| 20 72 65 70 65 61 74 0d | 09 09 65 6c 73 65 0d 09 | repeat.|..else..|
|000005f0| 09 09 74 65 6c 6c 20 6d | 65 20 74 6f 20 53 65 74 |..tell m|e to Set|
|00000600| 44 61 74 65 54 69 6d 65 | 53 74 61 6d 70 20 62 79 |DateTime|Stamp by|
|00000610| 20 74 68 65 49 74 65 6d | 0d 09 09 65 6e 64 20 69 | theItem|...end i|
|00000620| 66 0d 09 65 6e 64 20 72 | 65 70 65 61 74 0d 09 2d |f..end r|epeat..-|
|00000630| 2d 0d 09 74 65 6c 6c 20 | 61 70 70 6c 69 63 61 74 |-..tell |applicat|
|00000640| 69 6f 6e 20 22 74 6f 75 | 63 68 4d 65 22 0d 09 09 |ion "tou|chMe"...|
|00000650| 71 75 69 74 0d 09 65 6e | 64 20 74 65 6c 6c 0d 65 |quit..en|d tell.e|
|00000660| 6e 64 20 6f 70 65 6e 0d | 0d 74 6f 20 53 65 74 44 |nd open.|.to SetD|
|00000670| 61 74 65 54 69 6d 65 53 | 74 61 6d 70 20 62 79 20 |ateTimeS|tamp by |
|00000680| 74 68 65 46 69 6c 65 0d | 09 74 65 6c 6c 20 61 70 |theFile.|.tell ap|
|00000690| 70 6c 69 63 61 74 69 6f | 6e 20 22 74 6f 75 63 68 |plicatio|n "touch|
|000006a0| 4d 65 22 0d 09 09 73 65 | 74 20 74 68 65 53 74 61 |Me"...se|t theSta|
|000006b0| 6d 70 20 74 6f 20 66 65 | 74 63 68 20 74 68 65 46 |mp to fe|tch theF|
|000006c0| 69 6c 65 0d 09 09 2d 2d | 20 73 65 74 20 74 68 65 |ile...--| set the|
|000006d0| 44 61 74 65 20 74 6f 20 | 74 68 65 20 63 72 65 61 |Date to |the crea|
|000006e0| 74 69 6f 6e 20 64 61 74 | 65 20 6f 66 20 74 68 65 |tion dat|e of the|
|000006f0| 53 74 61 6d 70 0d 09 09 | 73 65 74 20 74 68 65 44 |Stamp...|set theD|
|00000700| 61 74 65 20 74 6f 20 74 | 68 65 20 6d 6f 64 69 66 |ate to t|he modif|
|00000710| 69 63 61 74 69 6f 6e 20 | 64 61 74 65 20 6f 66 20 |ication |date of |
|00000720| 74 68 65 53 74 61 6d 70 | 0d 09 09 73 65 74 20 70 |theStamp|...set p|
|00000730| 72 65 66 73 20 63 72 65 | 61 74 69 6f 6e 20 74 6f |refs cre|ation to|
|00000740| 20 7b 76 61 6c 75 65 3a | 74 68 65 44 61 74 65 7d | {value:|theDate}|
|00000750| 0d 09 09 74 6f 75 63 68 | 20 74 68 65 46 69 6c 65 |...touch| theFile|
|00000760| 0d 09 65 6e 64 20 74 65 | 6c 6c 0d 65 6e 64 20 53 |..end te|ll.end S|
|00000770| 65 74 44 61 74 65 54 69 | 6d 65 53 74 61 6d 70 0d |etDateTi|meStamp.|
|00000780| 00 00 01 00 00 00 01 18 | 00 00 00 18 00 00 00 32 |........|.......2|
|00000790| 69 66 69 63 61 74 69 6f | 6e 20 64 61 74 65 20 73 |ificatio|n date s|
|000007a0| 68 6f 75 6c 64 20 62 65 | 2e 20 54 68 69 73 20 73 |hould be|. This s|
|000007b0| 08 73 61 6d 70 6c 65 20 | 35 6d 02 00 00 00 54 45 |.sample |5m....TE|
|000007c0| 58 54 54 6f 79 53 01 00 | 00 34 00 80 00 00 00 00 |XTToyS..|.4......|
|000007d0| 00 00 54 45 58 54 54 6f | 79 53 01 00 00 34 00 80 |..TEXTTo|yS...4..|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 ae 25 0e 6e 00 00 | 07 00 00 00 01 4a 74 69 |...%.n..|.....Jti|
|00000800| 6f 6e 20 64 61 74 65 2e | 0d 0d 2d 2d 20 48 6f 77 |on date.|..-- How|
|00000810| 20 74 6f 20 63 6f 6d 70 | 69 6c 65 20 74 68 69 73 | to comp|ile this|
|00000820| 20 41 70 70 6c 65 53 63 | 72 69 70 74 3a 20 65 78 | AppleSc|ript: ex|
|00000830| 65 63 75 74 65 20 22 53 | 61 76 65 20 41 73 20 52 |ecute "S|ave As R|
|00000840| 75 6e 2d 4f 6e 6c 79 2e | 2e 2e 22 20 63 6f 6d 6d |un-Only.|.." comm|
|00000850| 61 6e 64 21 0d 2d 2d 20 | 55 73 61 67 65 31 3a 20 |and!.-- |Usage1: |
|00000860| 52 75 6e 20 74 68 69 73 | 20 64 72 6f 70 6c 65 74 |Run this| droplet|
|00000870| 20 74 6f 20 73 65 6c 65 | 63 74 20 61 20 74 61 72 | to sele|ct a tar|
|00000880| 00 00 00 14 00 28 00 04 | 01 9d 02 6a 00 28 00 04 |.....(..|...j.(..|
|00000890| 02 6d 02 6a 00 00 00 01 | 00 00 01 00 00 00 01 18 |.m.j....|........|
|000008a0| 00 00 00 18 00 00 00 32 | 02 51 cd 28 31 f2 00 00 |.......2|.Q.(1...|
|000008b0| 00 1c 00 32 00 00 57 50 | 6f 73 00 00 00 0a 00 80 |...2..WP|os......|
|000008c0| ff ff 00 00 00 00 02 51 | cc d0 00 00 00 00 00 00 |.......Q|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+